The 640 MEG Shareware Studio 2/The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO/business/submgr14.zip/PATRON.FMT

Text File | 1992-08-24 | 1KB | 34 lines

@  2, 18  SAY "Master Data Entry Record for Advertisers"
@  5,  0  SAY "Company:"
@  5, 18  GET  PATRON->NAME
@  7,  0  SAY "Attn/Contact:"
@  7, 18  GET  PATRON->CONTACT
@  9,  0  SAY "Address:"
@  9, 18  GET  PATRON->ADDRESS1
@ 10, 18  GET  PATRON->ADDRESS2
@ 12,  0  SAY "City, State, Zip"
@ 12, 18  GET  PATRON->CITY  PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXX"
@ 12, 43  SAY ","
@ 12, 45  GET  PATRON->STATE
@ 12, 48  GET  PATRON->ZIP_4
@ 14, 27  SAY "Phone: ("
@ 14, 35  GET  PATRON->AREA_CODE
@ 14, 38  SAY ")"
@ 14, 40  GET  PATRON->PHONE_NUM  PICTURE "XXXXXXXX"
@ 16, 12  SAY "Date Ad Was Received:"
@ 16, 34  GET  PATRON->DATE_OF_AD
@ 16, 45  SAY "Paid?"
@ 16, 52  GET  PATRON->PAID  PICTURE "Y"
@ 16, 55  SAY "Size:"
@ 16, 61  GET  PATRON->SIZE
@ 16, 63  SAY "*"
@ 18,  8  SAY "*1=Full Page, 2=Half Page, 3=Quarter Page, 4=Column X 2 in."
@ 20,  8  SAY "Issue Date:"
@ 20, 20  GET  PATRON->ISSUE_DATE
@ 20, 31  SAY "Last Issue Ad was Placed In:"
@ 20, 60  GET  PATRON->LAST_ISSUE
@ 22, 22  SAY "Patron Number: P-"
@ 22, 39  SAY  PATRON->PAT_NUMBER
@  1, 16  TO  3, 59    DOUBLE
@ 17,  0  TO 19, 79